home *** CD-ROM | disk | FTP | other *** search
- my_radius = _width / "2";
- my_x = _X;
- my_y = _Y;
- my_n = _name;
- if(ymov == "")
- {
- ymov = random(eval("/:speed")) + "1";
- xmov = random(eval("/:speed")) + "1";
- ysign = random("2") - "1";
- if(ysign == "0")
- {
- ysign = "1";
- }
- xsign = random("2") - "1";
- if(xsign == "0")
- {
- xsign = "1";
- }
- xmov *= xsign;
- ymov *= ysign;
- }
- if(my_radius + eval("/:speed") >= my_x)
- {
- xmov *= - "1";
- my_x = my_radius + eval("/:speed");
- }
- if(my_radius + eval("/:speed") >= my_y)
- {
- ymov *= - "1";
- my_y = my_radius + eval("/:speed");
- }
- if(my_x >= eval("/:movie_width") - my_radius - eval("/:speed"))
- {
- xmov *= - "1";
- my_x = eval("/:movie_width") - my_radius - eval("/:speed");
- }
- if(my_y >= eval("/:movie_height") - my_radius - eval("/:speed"))
- {
- ymov *= - "1";
- my_y = eval("/:movie_height") - my_radius - eval("/:speed");
- }
- n = "1";
- while(eval("/:total_circles") >= n)
- {
- if(n ne my_n)
- {
- n_x = getProperty("../" add n, _X);
- n_y = getProperty("../" add n, _Y);
- n_radius = getProperty("../" add n, _width) / "2";
- delta_x = my_x + xmov - n_x;
- delta_y = my_y + ymov - n_y;
- if(delta_x * delta_x + delta_y * delta_y < (my_radius + n_radius) * (my_radius + n_radius))
- {
- if(eval("/:soundon") == "1")
- {
- tellTarget("/h2o")
- {
- play();
- }
- }
- if(eval("/:soundon") == "1")
- {
- tellTarget("/ratata")
- {
- play();
- }
- }
- gotoAndPlay(3);
- }
- }
- n += "1";
- }
- _X = my_x + xmov;
- _Y = my_y + ymov;
-